
Set fso = CreateObject("Scripting.FileSystemObject")
Set sout = WScript.StdOut
Set objShell = WScript.CreateObject("WScript.Shell")


Do Until WScript.StdIn.AtEndOfStream
    strLine = WScript.StdIn.ReadLine
    body = body + strLine + vbCrLf
Loop

Set TypeLib = CreateObject("Scriptlet.TypeLib")

guidStr = TypeLib.Guid
Set typeLib = Nothing
myGuid = Left(guidStr, Len(guidStr)-3)
myGuid = right(myGuid, len(myGuid) -1) 



' How to write file
outFile=myGuid + ".txt"
Set objFile = fso.CreateTextFile(outFile,True)
objFile.Write "test string" & vbCrLf
objFile.Close

Return = objShell.Run("e:\scripts\java\dailyreports.cmd " + outFile, 0, true)

WScript.Quit(0)